# A tibble: 8 × 7
Ano Continente Country letalidade_media desvio_padrao Casos_maximo
<chr> <chr> <chr> <chr> <chr> <chr>
1 2022 América do Sul Brasil 0,70 0,534 " 298.408"
2 2022 América do Sul Uruguai 0,35 0,296 " 13.612"
3 2022 Europa França 0,17 0,091 "2.417.043"
4 2022 Europa Itália 0,31 0,185 " 228.123"
5 2023 América do Sul Brasil 0,77 0,818 " 60.591"
6 2023 América do Sul Uruguai 0,22 0,308 " 8.173"
7 2023 Europa França 0,66 0,261 " 151.707"
8 2023 Europa Itália 0,89 0,573 " 27.102"
# ℹ 1 more variable: Obitos_maximo <chr>
flextable
flextable(letalidade)
Editando com o que já sabemos
tab1 <-flextable( letalidade) %>%autofit() %>%align(align="r", part="all") %>%align(align="c", j=c(1,2), part="all") %>%bold(part="header") %>%bold(j=c(1,2)) %>%bg(bg="lightgrey", j=1, part="all") %>%bg(bg="grey", j=c(2,3), part="all") %>%hline(i=c(2,4,6)) %>%vline(j=c(1,2,3)) %>%set_header_labels( Country="País", letalidade_media="Letalidade Média Diária",desvio_padrao="Desvio Padrão",Casos_maximo="Máximo de casos em 24h", Obitos_maximo="Máximo de óbitos em 24h")tab1
Mesclando celulas
tab2 <- tab1 %>%merge_v(j=c(1,2)) tab2
Procure sobre a função fix_border_issues()
Coloração condicional
tab3 <- tab2 %>%bg(i =~ Country =="Brasil" , # nome da coluna original j =c(6,7),bg="red")tab3
Coloração condicional
tab4 <- tab2_num %>%bg(i =~ Casos_maximo >200000 , # nome da coluna original bg="yellow") %>%colformat_double(decimal.mark =",",digits =2) %>%colformat_int(big.mark =".")tab4
COMENTÁRIOS
Tem que ser o nome original na base! Sugestão: deixe para mudar os nomes só no final
Vantagem: Não preciso dizer o número das linhas , ele vai atualizar baseado no valor do banco! Isso é mais reprodutível.
PARA CONDICIONAR SOBRE OS NÚMEROS, O R TEM QUE ESTAR RECONHECENDO COMO NUMÉRICO
Por isso removi o mutate_if() que haviamos feito no início da manipulação.
Há possibilidade de mudar isso na própria tabela.
Tarefa do fim do módulo
Entregar uma tabela em Word (.docx) criada com o flextable com uma base de dados do seu interesse. O código .Rmd deve ser entregue juntamente com a tabela gerada.
Sugiro não utilizar as mesmas bases que usamos aqui na aula, a não ser que faça uma abordagem muito diferentes das já feitas.
Para chegar na tabela, você deve usar funções de manipulações de dados de acordo como seu objetivo. Deve conter pelo menos alguma manipulação com o filter() e com o mutate(), no mínimo.
Deve conter pelo menos 3 funções de formatação da tabela.
Defafio: usar funções novas de formatação ou manipulação não apresentadas na aula.